home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / COMBINE1.PGM < prev    next >
Text File  |  1994-08-22  |  617b  |  32 lines
  1. read combine
  2. DEFINE DISEASE __________
  3. DEFINE NUMBER  #####
  4. ERASE DISEASES.REC
  5. Route DISEASES.REC
  6. DISEASE = "MALARIA"
  7. NUMBER = MALARIA
  8. WRITE RECFILE DISEASE NUMBER
  9.  
  10. read combine
  11. DEFINE DISEASE __________
  12. DEFINE NUMBER  #####
  13. Route DISEASES.REC
  14. DISEASE = "DIARRHEA"
  15. NUMBER = DIARRHEA
  16. WRITE RECFILE DISEASE NUMBER
  17.  
  18. read combine
  19. DEFINE DISEASE __________
  20. DEFINE NUMBER  #####
  21. Route DISEASES.REC
  22. DISEASE = "GUINEA WORM"
  23. NUMBER = GUINEAWORM
  24. WRITE RECFILE DISEASE NUMBER
  25.  
  26. READ DISEASES
  27. SUMFREQ NUMBER DISEASE
  28. ?Press any key to continue ?
  29. BAR DISEASE /SUM = NUMBER
  30. PIE DISEASE /SUM = NUMBER
  31.  
  32.